home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PRINTER / LBLMKR70.ARJ / LBLCONV.BAS < prev    next >
BASIC Source File  |  1992-03-07  |  2KB  |  47 lines
  1. 1 ' ******************************
  2. 2 ' *      LABEL MAKER 7.05      *
  3. 3 ' *        LBLCONV.BAS         *
  4. 4 ' *       March 7, 1992        *
  5. 5 ' ******************************
  6. 10 DIM FILE$(320), DIR$(20), NAMES$(320), COMMENTS$(21), TEXT.LEN(21), TEMP.COMMENTS$(21), Line.of.Files$(55), TITLE$(20)
  7. 20 CLS : LOCATE 5, 1
  8. 30 INPUT "What is the name of the file you want to convert?"; SAVE.LABEL1$
  9. 40 LOCATE 10, 1
  10. 50 INPUT "Enter the name of the file to save the converted data to"; SAVE.LABEL2$
  11. 60 '
  12. 70 '                 READ IN SAVED LABEL DATA
  13. 80 '
  14. 90 OPEN SAVE.LABEL1$ FOR INPUT AS #1
  15. 100 INPUT #1, DISKNAME$, CN$, FREEBYTES!, BYTESUSED!, DS$, PRINTER$, DCOUNT%, FCOUNT%, LABEL.SIZE, TL, SKIPFILES$, FREQ, DURA!, JB, JF, JW, JH, JNB
  16. 110 INPUT #1, SN$, LM, ENL, COND, CANCENL, CANCCOND, PRINT.MODE, LINES.OF.COMMENTS, KOMMENTS.PER.LABEL, NO.LABELS, Line.of.Files: CN% = VAL(CN$)
  17. 120 FOR K = 1 TO KOMMENTS.PER.LABEL: INPUT #1, COMMENTS$(K): NEXT K
  18. 130 IF NO.LABELS = 1 THEN FOR I = 1 TO Line.of.Files: INPUT #1, Line.of.Files$(I): NEXT I
  19. 140 IF NO.LABELS <> 1 THEN FOR I = 1 TO CN%: INPUT #1, FILE$(I): NEXT I
  20. 150 CLOSE 1
  21. 160 IF PRINTER$ = "EPSON" THEN PRINTER$ = "Epson 9-Pin"
  22. 170 IF PRINTER$ = "LQ TYPE PRINTER" THEN PRINTER$ = "Epson 24-Pin"
  23. 180 '
  24. 190 '                   SAVE LABEL DATA TO NEW FILE
  25. 200 '
  26. 210 OPEN SAVE.LABEL2$ FOR OUTPUT AS #1
  27. 220 WRITE #1, LL, DISKNAME$, CN$, FREEBYTES!, BYTESUSED!, DS$, PRINTER$, LJLM!
  28. 230 WRITE #1, DCOUNT, FCOUNT, LABEL.SIZE, TL, SKIPFILES$, FREQ, DURA!
  29. 240 WRITE #1, JB, JF, JW, JH, JNB
  30. 250 WRITE #1, SN$, LM, ENL, COND, CANCENL, CANCCOND, PRINT.MODE
  31. 260 WRITE #1, LINES.OF.COMMENTS, KOMMENTS.PER.LABEL, NO.LABELS
  32. 270 WRITE #1, Line.of.Files
  33. 280 WRITE #1, NO.TITLES
  34. 290 FOR K = 1 TO NO.TITLES
  35. 300 WRITE #1, TITLE$(K)
  36. 310 NEXT K
  37. 320 FOR K = 1 TO KOMMENTS.PER.LABEL
  38. 330 WRITE #1, COMMENTS$(K)
  39. 340 NEXT K
  40. 350 IF NO.LABELS = 1 THEN
  41. 360 FOR I = 1 TO Line.of.Files
  42. 370 WRITE #1, Line.of.Files$(I)
  43. 380 NEXT I
  44. 390 END IF
  45. 400 SYSTEM
  46.  
  47.